home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / m68k / tutor.arc / BF.SA < prev    next >
Text File  |  1990-01-05  |  2KB  |  49 lines
  1. BF       IDNT      1,1       BF   Block Fill command                 06/16/82
  2.          XDEF      BFCMD
  3.  SPC 1
  4.          XREF      CKWADR
  5.          XREF      FNEXTF
  6.          XREF      GETA
  7.          XREF      GETNUMA
  8.          XREF      MACSBUG
  9.          XREF      MM90
  10.          XREF      P2PHY
  11.          XREF      SYNTAX
  12.  SPC 2
  13.          SECTION   11
  14.  
  15. *  BLOCK FILL   ADDRESS1 ADDRESS2 WORD-DATA
  16. *
  17. BFCMD    LEA       SYNTAX(PC),A0
  18.          BSR       FNEXTF
  19.          BSR       GETA
  20.          BSR       CKWADR    CHECK WORD BOUNDRY ADDRESS
  21.          MOVE.L    D0,D6     D6 = FROM BEGIN ADDRESS                 1,1
  22.  SPC 1
  23.          BSR       FNEXTF
  24.          BSR       GETA
  25.          BSR       CKWADR    CHECK WORD BOUNDRY ADDRESS
  26.          MOVE.L    D0,A1     A1 = FROM END ADDRESS
  27.  SPC 1
  28.          BSR       FNEXTF    FIND NEXT FIELD
  29.          BSR       GETNUMA   D0 = VALUE
  30.          MOVE.L    D0,D7
  31.  SPC 1
  32.          MOVE.L    D6,A0     A0 = FROM BEGIN ADDRESS                 1,1
  33.          BSR       P2PHY     DISPLAY ADDRESSES
  34.          CMP.L     A0,A1
  35.          BCS       SYNTAX    END ADDR TOO SMALL
  36.  SPC 1
  37.          CMP.L     #$10000,D7
  38.          BCC       SYNTAX    WORD OVERFLOW
  39.  SPC 1
  40. BFCMD11
  41.          MOVE.W    D7,(A0)   STORE DATA
  42.          MOVE.W    (A0)+,D1
  43.          CMP.W     D7,D1     VERIFY DATA
  44.          BNE       MM90      'DATA DID NOT STORE'
  45.  SPC 1
  46.          CMP.L     A0,A1
  47.          BCC       BFCMD11
  48.          BRA       MACSBUG
  49.  END